home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
byt85mar.lbr
/
STUMP1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-09-15
|
512b
|
35 lines
Listing 1: BYTE disk write benchmark in Turbo Pascal.
{ copywrited 1984 by Laine Stump. For private, non-commercial use only }
PROGRAM write (output, outfile);
CONST
a = '12345678123456781234567812345678';
nr = 512;
VAR
outfile : text;
b : string[128];
i : integer;
begin
b := a+a+a+a;
assign (outfile, 'b:test');
rewrite (outfile);
FOR i := 1 to nr DO
write (outfile, b);
close (outfile);
writeln ('done');
end. { write }